home *** CD-ROM | disk | FTP | other *** search
- object DateTextEditorDlg: TDateTextEditorDlg
- Left = 322
- Top = -1090
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'CoreTools Date Editor'
- ClientHeight = 190
- ClientWidth = 257
- Ctl3D = False
- Color = clBtnFace
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsStayOnTop
- PixelsPerInch = 120
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 20
- object PrevMonthButton: TBitBtn
- Left = 32
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Previous month'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = PrevMonthButtonClick
- Glyph.Data = {
- 90010000424D9001000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
- 80E338F33333F33338F3E0F33333033380E338F3333FF83338F3E0F333300333
- 80E338F33FFF883338F3E0F33300033380E338F3FF88883338F3E0F330000333
- 80E338F33888883338F3E0F33300033380E338F33388883338F3E0F333300333
- 80E338F33333883338F3E0F33333033380E338F33333383338F3E0F333333333
- 80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
- 00E33888888888888833EEEEEEEEEEEEEEE33333333333333333000000000000
- 0000000000000000000000000000000000000000}
- NumGlyphs = 2
- end
- object Calendar1: TCalendar
- Left = 8
- Top = 33
- Width = 241
- Height = 113
- TabStop = False
- Color = clSilver
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- GridLineWidth = 2
- ParentFont = False
- StartOfWeek = 0
- TabOrder = 7
- OnChange = Calendar1Change
- end
- object DatePanel: TPanel
- Left = 56
- Top = 8
- Width = 145
- Height = 25
- BevelInner = bvLowered
- BevelOuter = bvLowered
- Ctl3D = False
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 8
- end
- object NextMonthButton: TBitBtn
- Left = 200
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Next month'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = NextMonthButtonClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
- 70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
- 70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
- 70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- Layout = blGlyphRight
- NumGlyphs = 2
- end
- object CancelButton: TBitBtn
- Left = 168
- Top = 152
- Width = 81
- Height = 33
- Caption = '&Cancel'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Kind = bkCancel
- Spacing = 0
- end
- object OKButton: TBitBtn
- Left = 88
- Top = 152
- Width = 73
- Height = 33
- Caption = '&OK'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- Kind = bkOK
- end
- object TodayButton: TBitBtn
- Left = 8
- Top = 152
- Width = 73
- Height = 33
- Hint = 'Todays date'
- Caption = '&Today'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = TodayButtonClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000033
- 33333333377777F33333333330BBB0333333333337FFF7F33333333330000033
- 33333333377777F33333333330BBB0333333333337FFF7FF3333333300000003
- 333333337777777FF33333300BBBBB003333333773333377F3333330BBFFFBB0
- 33333337F3333337FF333300BFFFFFB003333377F333FFF773F33300BFF077B0
- 30333377F3377737F7333300BFF7FFB003333377F337F33773333330BBF7FBB0
- 33333337FF37F337F33333300BB7BB00333333377FF7FF773333333300000003
- 33333333777777733333333330BBB0333333333337FFF7F33333333330000033
- 33333333377777F33333333330BBB033333333333733373333330000}
- NumGlyphs = 2
- Spacing = 0
- end
- object PrevYearButton: TBitBtn
- Left = 8
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Previous year'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = PrevYearButtonClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033
- 70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033
- 70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033
- 70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- NumGlyphs = 2
- end
- object NextYearButton: TBitBtn
- Left = 224
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Next year'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = NextYearButtonClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333
- 70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003
- 70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333
- 70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- NumGlyphs = 2
- end
- end
-